home *** CD-ROM | disk | FTP | other *** search
- on exitFrame
- go(the frame)
- end
-
- on keyDown
- global sCadena, nError, bVideoNormal, bSalto, sModuloInicio, bPrimeraVez
- if the key = RETURN then
- if sCadena = "VTM" then
- if bSalto and not bPrimeraVez then
- set CD to BuscaCd()
- if CD <> EMPTY then
- go("inicio", CD & "\modulos\" & sModuloInicio)
- else
- quit()
- end if
- else
- go("correcto" & bVideoNormal)
- end if
- else
- set nError to nError + 1
- if nError > 2 then
- go("Error2_" & bVideoNormal)
- else
- go("Error1_" & bVideoNormal)
- end if
- end if
- else
- if (the key = BACKSPACE) or (the keyCode = 117) then
- set sCadena to the text of member "password"
- set sCadena to chars(sCadena, 1, length(sCadena) - 1)
- put sCadena into field "password"
- else
- set sCaracter to mayusculas(the key)
- if length(sCadena) < 5 then
- set sCadena to sCadena & sCaracter
- put sCadena into field "password"
- end if
- end if
- end if
- end
-